COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "EXAMPLE ONE"
C00005 ENDMK
C⊗;
BEGIN "EXAMPLE ONE"
	REQUIRE "GEOMES.HDR[SAI,BGB]" SOURCE_FILE;
	DEFINE π="3.1415927";
	INTEGER B1,B2,I,N;
	INTEGER T1,T2,T3,T4;

	N ← 100; MKUNIV;
	B1 ← INB3D("B1");	B2 ← INB3D("B2");
	T1 ← TRAM(B1);		T2 ← TRAM(B2);
	T3 ← MKCOPY(T1);
	APTRAM(INTRAM(T3),T2);
	MKROTV(T3);

	T4 ← MKTRMV(XWC(T3)/N,YWC(T3)/N,ZWC(T3)/N);

	XWC(T4) ← (XWC(T2)-XWC(T1)) / N;
	YWC(T4) ← (YWC(T2)-YWC(T1)) / N;
	ZWC(T4) ← (ZWC(T2)-ZWC(T1)) / N;

	GEODPY;
	FOR I←1 STEP 1 UNTIL N DO
BEGIN
	GEODPY;
	APTRAM(B1,T4);
END;
	WHILE TRUE DO INCHRW;

END "EXAMPLE ONE";